Nautilus 1992 July/Nautilus-3-8/Nautilus-3-8.bin/Tools & Utilities/Techy Stuff/Development Environments ƒ/Perl 4.0.2 ƒ/os2/glob.c

C/C++ Source or Header | 1992-01-04 | 312 b | 19 lines

/*
 * Globbing for OS/2.  Relies on the expansion done by the library
 * startup code. (dds)
 */

#include <stdio.h>
#include <string.h>

main(int argc, char *argv[])
{
  register i;

  for (i = 1; i < argc; i++)
  {
    fputs(IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i], stdout);
    putchar(0);
  }
}